home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
pascalt2.zip
/
WHILELP.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
352b
|
15 lines
(* Chapter 4 - Program 7 *)
program While_Loop_Example;
var Counter : integer;
begin
Counter := 4;
while Counter < 20 do begin
Write('We are in the while loop, waiting ');
Write('for the counter to reach 20. It is',Counter:4);
Writeln;
Counter := Counter + 2;
end;
end.